* src/data.c (Faset): Fix last change.

diff --git a/src/data.c b/src/data.c
index 5ee40c540400e383cb5f7a039485cc2a7d776480..a910f6e58f3b666bffe3222d75faf18d2925fbfb 100644 (file)
--- a/src/data.c
+++ b/src/data.c
@@ -2215,7 +2215,7 @@ bool-vector.  IDX starts at 0.  */)
   CHECK_NUMBER (idx);
   idxval = XINT (idx);
   CHECK_ARRAY (array, Qarrayp);
-  CHECK_IMPURE (array, XVECTOR (array));
+  CHECK_IMPURE (array, XPNTR (array));
 
   if (VECTORP (array))
     {